home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Markets / Education / HyperCard In Education / Plate Tectonics / card_3906.txt < prev    next >
Encoding:
Text File  |  1990-04-02  |  2.4 KB  |  110 lines
  1. -- card: 3906 from stack: in
  2. -- bmap block id: 11522
  3. -- flags: 0000
  4. -- background id: 2769
  5. -- name: rift boundaries
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global buttonname
  9.   put the short name of me into buttonname
  10.   set the hilite of background button buttonname to true
  11. end OpenCard
  12.  
  13. on CloseCard
  14.   hide msg
  15.   global buttonname
  16.   put the short name of me into buttonname
  17.   set the hilite of background button buttonname to false
  18.   cleanexit
  19.   lock screen
  20.   hide cd btn id 11
  21.   unlock screen
  22. end CloseCard
  23.  
  24.  
  25.  
  26. -- part 9 (button)
  27. -- low flags: 00
  28. -- high flags: 8004
  29. -- rect: left=187 top=102 right=145 bottom=286
  30. -- title width / last selected line: 0
  31. -- icon id / first selected line: 0 / 0
  32. -- text alignment: 1
  33. -- font id: 0
  34. -- text size: 12
  35. -- style flags: 0
  36. -- line height: 16
  37. -- part name: Rift Zone
  38. ----- HyperTalk script -----
  39. on mouseUp
  40.   lock screen
  41.   set the visible of cd field "rift zone" to not the visible of cd field "rift zone"
  42.  
  43.   unlock screen with visual dissolve
  44.  
  45. end mouseUp
  46.  
  47.  
  48.  
  49. -- part 6 (field)
  50. -- low flags: 81
  51. -- high flags: 0004
  52. -- rect: left=131 top=81 right=328 bottom=407
  53. -- title width / last selected line: 0
  54. -- icon id / first selected line: 0 / 0
  55. -- text alignment: 0
  56. -- font id: 3
  57. -- text size: 12
  58. -- style flags: 0
  59. -- line height: 16
  60. -- part name: rift zone
  61. ----- HyperTalk script -----
  62. on mouseUp
  63.   set locktext of me to true
  64.   global fieldname
  65.   lock screen
  66.   hide me
  67.   --hide card button fieldname
  68.   unlock screen with visual dissolve
  69. end mouseup
  70.  
  71.  
  72.  
  73. -- part 11 (button)
  74. -- low flags: 80
  75. -- high flags: C000
  76. -- rect: left=131 top=81 right=115 bottom=403
  77. -- title width / last selected line: 0
  78. -- icon id / first selected line: 0 / 0
  79. -- text alignment: 1
  80. -- font id: 2
  81. -- text size: 18
  82. -- style flags: 256
  83. -- line height: 24
  84. -- part name: Rift Zones
  85. ----- HyperTalk script -----
  86. on mouseUp
  87.  
  88.   global fieldname
  89.   lock screen
  90.   hide me
  91.   --hide card button fieldname
  92.   hide card field "rift zone"
  93.   unlock screen with visual dissolve
  94. end mouseUp
  95.  
  96.  
  97.  
  98. -- part contents for background part 1
  99. ----- text -----
  100. Rift Boundaries
  101.  
  102. -- part contents for card part 6
  103. ----- text -----
  104.  
  105.  
  106. A rift zone is a parallel mountain range separated by by a deep "rift valley". 
  107. The plates are being driven apart by upwelling molten rock that originates in the asthenosphere. As new rock is added the older rock is pushed aside.
  108. Examples include:
  109.    The Mid-Atlantic Ridge, East Pacific Rise (both under water) and Iceland.
  110.